Análise do ICMS do Estado do Rio de Janeiro

Gabriel de Jesus Pereira

Carregando a série temporal

dados <- readxl::read_xls("ipeadata[15-03-2024-10-52].xls") |> 
  mutate(Data = paste0(Data, ".01") |> 
           as.Date(format = "%Y.%m.%d"),
         Mês = factor(month(Data, label = TRUE)),
         Ano = factor(year(Data))
         )

A série temporal

Os dados são do ICMS do estado do Rio de Janeiro, coletados no período de janeiro de 1993 a dezembro de 2023.

Deflação

dados <- deflate(dados$ICMS, dados$Data, "12/2023", "igpm") |> 
  ts(start = c(1993, 1), frequency = 12) |> 
  (\(x) {
    tibble(
      Data = time(x) |>
        zoo::as.Date(),
      ICMS = c(as.matrix(x))
      ) |> 
      mutate(
        Ano = factor(year(Data)),
        Mês = factor(month(Data, label = TRUE))
      )
  })()

Análise exploratória

A Série temporal

Temp <- dados |> 
  plot_time_series(
    Data, 
    ICMS,
    .interactive = TRUE,
    .title = ""
    )

Análise dos meses

Seas <- dados |> 
  ggplot(
    aes(
      x = Mês, 
      y = `ICMS`, 
      group = Ano,
      color = Ano
      )
    ) +
  geom_line() +
  theme_bw() +
  labs(y = "ICMS", x = "") +
  scale_color_manual(values = viridis::mako(33))

Sazonalidade e Estacionariedade